home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
0195.ZIP
/
EXISTFIL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-12-21
|
812b
|
24 lines
{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
type
old_filename_type = string[14]; {This type declaration is NOT inside the
INCLUDE file in order to avoid multiple
declarations}
{$I existfil.lib}
var
name_to_test : old_filename_type;
begin
WriteLn('Enter filename to test. Include drive, if not same.');
ReadLn(name_to_test);
if exists(name_to_test) then
WriteLn(name_to_test,' exists.')
else
WriteLn(name_to_test,' does not exist.');
end.